var A,B,C,D,E:
TMtxInt;
begin
CreateIt(A,B,C,D);
CreateIt(E);
try
A.Size(2,2);
B.Size(A);
C.Size(A);
D.Size(A);
E.SetIt(4,4,[1,2,3,4
5,6,7,8
9,1,2,3
4,5,6,7]);
E.Split(2,2,[A,B,
C,D]);
// A becomes:
// [1,2,
// 5,6]
// B becomes:
// [3,4,
// 7,8]
// C becomes:
// [9,1,
// 4,5]
// D becomes:
// [2,3,
// 6,7]
finally
FreeIt(A,B,C,D);
FreeIt(E);
end;
end;
